home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / System7 tools / AppleScript / Finder Scripting Toolkit 1.0 / fwin coercion osax / long2fwin.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-07-20  |  1.5 KB  |  77 lines  |  [TEXT/MPS ]
  1. /*
  2.  
  3.         F W I N   C O E R C I O N   O S A X
  4.         
  5.         Version 1.0
  6.         Freeware by Daniel Ranson
  7.         
  8.         This osax performs coercions to the FinderWindow (fwin) record
  9.         type used by Finder events.
  10.         
  11.         There are actually three osax. This one converts integers, as a
  12.         special way to refer to the About and Clipboard windows.
  13.         The possible values are :
  14.             1 : about window
  15.             2 : clipboard window
  16.  
  17. */
  18.  
  19. #include <Types.h>
  20. #include <Memory.h>
  21. #include <Aliases.h>
  22. #include <AppleEvents.h>
  23. #include <AERegistry.h>
  24.  
  25. struct FinderWindow{
  26.     long        windowType;
  27.     DescType    aliasType;
  28.     long        aliasLength;
  29.     AliasRecord    alias;
  30. };
  31.  
  32. typedef struct FinderWindow FinderWindow;
  33.  
  34. pascal OSErr LONG2FWIN(    DescType    fromType,
  35.                         Ptr            dataPtr,
  36.                         Size        dataSize,
  37.                         DescType    toType,
  38.                         long        refCon,
  39.                         AEDesc        *result)
  40. {
  41. #pragma unused(fromType, dataSize, toType, refCon)
  42.  
  43.     FinderWindow    **hFwin;
  44.     Size            sizH;
  45.     long            val;
  46.     OSErr            err;
  47.     
  48.     /* Get the integer value */
  49.     val = *(long*)dataPtr;
  50.     if (val == 1)
  51.         val = 'abot';
  52.     else if (val == 2)
  53.         val = 'clip';
  54.     else
  55.         return errAECoercionFail;
  56.     
  57.     /* Allocate the structure */
  58.     sizH = 16;
  59.     hFwin = (FinderWindow**)NewHandle(sizH);
  60.     if (hFwin == 0) return errAECoercionFail;
  61.     
  62.     /* Fill in fields */
  63.     (**hFwin).windowType = 0;
  64.     (**hFwin).aliasType = 'find';
  65.     (**hFwin).aliasLength = 4;
  66.     BlockMove((Ptr)(&val), &((**hFwin).alias), 4);
  67.     
  68.     /* Create the descriptor */
  69.     MoveHHi((Handle)hFwin);
  70.     HLock((Handle)hFwin);
  71.     err = AECreateDesc(typeFinderWindow, (Ptr)(*hFwin), sizH, result);
  72.     
  73.     /* Clean up */
  74.     DisposeHandle((Handle)hFwin);
  75.     return err;
  76. }
  77.